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Avant-Propos 


Les jeux présentés dans ce livre utilisent des fonctions propres à votre 
microordinateur : son, couleur, graphisme haute résolution, caractères gra- 
phiques définis par l'utilisateur, etc. Pour cette raison, ces programmes ne 
fonctionnent que sur l’'Amstrad et sont difficilement adaptables à des maté- 
riels différents. 

Au-delà du jeu lui-même, l'étude de ces programmes vous enseignera 
de nombreuses techniques de programmation qui vous seront très utiles pour 
développer vos propres programmes. 





NOTES CONCERNANT LES PROGRAMMES 


Les programmes doivent être tapés tels qu'ils sont reproduits. Ils doivent 
être enregistrés sur cassette (ou sur disquette) pour éviter d'avoir à les reta- 
per à chaque utilisation. Utilisez pour cela l'instruction 


SAVE “ < nom > 


en remplaçant < nom > par le nom du programme à enregistrer. 
Exemple : pour enregistrer le programme BLITZ, tapez 


SAVE "BLITZ" 


et pressez la touche ENTER après avoir appuyé sur les touches PLAY et REC 
du magnétophone. Pour recharger un programme, rembobinez la cassette 
jusqu'au début du programme et tapez LOAD ‘ < nom > ”’. Si vous voulez, 
par exemple, recharger le programme BLITZ, tapez 


LOAD ‘“BLITZ”" 
et pressez la touche ENTER. 


Afin de réduire au maximum les risques d'erreurs, les listings des pro- 
grammes ont été reproduits par photographie. Si vos programmes ne fonc- 
tionnent pas, vérifiez-les attentivement en considérant plus particulièrement 
les points suivants : 


— lignes oubliées, 

— numéros de lignes erronés, 

— erreurs de frappe (attention en particulier à ne pas confondre la let- 
tre O et le chiffre O ou la lettre | et le chiffre 1). 








UAS 





Grâce à votre ordinateur, vous pouvez jouer au squash assis dans un fau- 
teuil. La raquette se déplace à l’aide du joystick ou des touches de contrôle 
du curseur et de la touche < COPY >. Vous disposez de dix balles que vous 
devez garder en jeu le plus longtemps possible. Chaque balle renvoyée rap- 
porte un point. 


10 REN #H##R#HHENEE 

20 REM # SQUASH # 

30 RENM FENYHY#HSREE 

40 GOSUB 830 

90 GOTO 170 

60 D=2#((J0Y{0)=4)-(J0Y(0)=8)) 
70 IF D<>0 THEN DO=D 

80 IF J0Y(0)=0 THEN D0=0 
90 RX=RK+DO 

100 RETURN 

110 D$=INKEVS 

120 D=2#((D$=F1$)-(D$=F2#)) 
130 IF D(>0 THEN DO=D 
140 IF D$=ST$ THEN D0=0 
150 RI=RX+D0 

160 RETURN 

170 LOCATE BX,BY 

180 PEN 3 

190 PRINT N$; 

200 BX=BX+DX 

210 BY=BY+DY 

220 LOCATE BX,BY 
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230 PRINT B$; 

240 IF BY=22 AND ABSIBX-RI-3))1 THEN 350 
250 IF BY=22 THEN S=S+{:PRINT S$3:DY=-DY 
240 IF BV=2 THEN PRINT 5$;:DV=-DY 
270 IF BX=3 OR BN=38 THEN PRINT S$;:DX=-DX 
280 ON JS GOSUB 60,110 

290 IF RXC1 THEN RK=1 

300 IF AX)34 THEN RX=34 

310 PEN 4 

320 LOCATE RK,RY 

330 PRINT R$; 

340 GOTO 170 

350 NB=NR+] 

360 IF NB=11 THEN 470 

370 LOCATE BX,BY 

380 PRINT N$; 

390 FOR 1=1 TO 3 

400 PRINT S$: 

410 FOR J=1 TO 400 

420 NEXT J 

430 NEXT I 

440 DO=0 

450 GOSUR 980 

460 GOTD 170 

470 LOCATE 14,6 

480 PRINT "SCORE :"35; 

490 IF SRI THEN R1=S 

500 LOCATE 14,11 

510 PRINT "RECORD :";RI; 

520 LOCATE 14,16 

530 PRINT "UNE AUTRE ?"; 

540 NB=0 

550 9=0 

560 Dé=INKEYS 

970 IF D$C>"" THEN 560 

580 D$=INKEYS 

590 IF D$="" THEN 580 

600 IF D$C)'N" AND D$C)"n" THEN 40 
610 CLS 

620 END 

630 MODE 1 

640 CLS 
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SOUASH 


850 DEFINT A-2 
660 INK 1,24 

&70 INK 2,20 

680 INK 3,8 

690 INK 4,0 

700 BORDER 19 

710 PAPER 2 

720 S$=CHR$ (7) 

730 LOCATE 12,11 

740 PRINT "JOYSTICK (0 ou N) ?"; 

750 D$=INKEVS 

780 IF D$="" THEN 750 

770 IF D$="0" OR D$="o" THEN J9=1 ELSE J9=2 
780 CLS 

790 SYMBOL 240,255,255,255 

800 SYMBOL 241,24,126,126,255,255, 128, 124,24 
810 SYMBOL 242,255,255,255,255,255, 255, 255,255 
820 CB$=CHRS (242) 

830 N$=CHR$ (32) 

840 PEN ! 

850 FOR RX=2 TO 39 

860 LOCATE BK, 1 

870 PRINT CBf: 

880 NEXT BX 

890 FOR BY=2 TD 22 

900 LOCATE 2,BY 

910 PRINT CB$: 

920 LOCATE 39,BY 

930 PRINT CB$: 

940 NEXT BY 

950 RS=NS4NS4CHRS (240) +CHR$ (240) +CHR$ (240) 4N$4NS 
960 B$=CHRS (241) 

970 RX=17 

980 RY=23 

990 BY=22° 

1000 BA=INT (RND#30) +7 

1010 DY=-1 

1020 DX= (INT (RND#2)-0, 5) #2 

1030 F1$=CHR$ (242) 

1040 F2$=CHR$ (243) 

1050 ST$=CHR$ (224) 

1060 RETURN 
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RARE 





Votre mission est de détruire la ville que vous survolez afin de pouvoir 
atterrir. À chaque passage, votre avion vole un peu plus bas. Vous ne pou- 
vez larguer une bombe (en appuyant sur une touche quelconque) que lors- 
que la bombe précédente a atteint son objectif ou le sol. Lorsque votre avion 
a atterri (ou lorsqu'il s'est écrasé contre un immeuble), le score est affiché 
ainsi que le record du jour. 


10 RE #EHHEHEEEE 

20 REM # BLITZ # 

30 REM HHEH#HHH EX 

40 DEFINT A-V 

50 DIM TB(40,25) 

60 GOSUR 450 

70 GOSUB 880 

80 FOR HY=1 TO 24 

90 FOR HX=1 TO 40 

100 LOCATE HX,HY 

110 2=-1 

120 W=Z40,5 

130 PEN ! 

140 PRINT A$ (M): 

150 PEN 2 

160 IF HK337 THEN 180 

170 IF TR(HX43,HY)()0 THEN 280 
180 1F INKEYS$C)"" AND BY=1 AND HXC340 THEN BY=HX+1:BY=HY#1 
190 1F BYC>0 THEN GOSUB 550 ELSE GOSUR 620 
200 NEXT HX 

210 LOCATE 39,HY 


220 PRINT NN$; 
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230 NEXT HY 

240 FOR 1=1 TO 500 

290 NET I 

260 S=S+40#HY+HX 

270 GOTO 70 

280 S=5+40*HY+HX 

290 LOCATE BX,B] 

300 PRINT N$; 

310 FOR I=HY TO 23 

320 LOCATE HX+1,1 

330 PRINT NN$; 

340 LOCATE HX+1,[+1 

350 PRINT RIGHT$(A$(1),2); 
360 FOR J=1 TO 100 

S70 NEXT J 

380 NEXT I 

390 IF SR THEN R=S 

400 LOCATE 4,1 

410 PEN 1 

420 PRINT "SCORE :"55, 
430 PRINT "RECORD :"3R; 
440 FOR I={f TO 100 

450 NEXT I 

460 R$=INKEYS 

470 IF R$<}>"" THEN 460 
480 LOCATE 8,14 

490 PRINT "UNE AUTRE ?°; 
500 R$=INKEYS 

510 IF R$="" THEN 500 
320 IF R$C?"N" AND R$<2>"n" THEN S=0:G60T0 70 
330 CLS 

340 END 

990 IF BY>24 THEN BY=1 
360 LOCATE BX,BI 

570 PRINT N$; 

390 TB(BX,B1)=0 

590 BI=BY 

600 IF BY<>1 THEN LOCATE BX,BY:PRINT B$;:BY=BY+] 
610 RETURN 

620 FOR I=1 TO 10 

630 NEXT I 

640 RETURN 
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BLITZ 


850 NODE ! 

660 CLS 

670 INK 1,18 

680 INK 2,4 

890 INK 3,24 

700 INK 4,1 

710 BORDER 1 

720 PAPER. 4 

730 DIM A$(1) 

740 SYMBOL 240,193,224,225,255,255,255 64,0 
750 SYNBOL 241,248,144,249,253,255,253, 241,94 
760 SYMBOL 242,248,144,248,252,254,252,240,96 
710 SYMBOL 243,40,18,56,124,124,124,56, 16 
780 SYMBOL 244,15,15,15,255,255,255, 255,255 
790 SYMBOL 245,240,240, 240,255 ,255, 255,255, 255 
800 SYMBOL 246,255,255,255,255,255,255, 255,255 
810 SYMBOL 247,0,0,0,255,255,255,255,255 
820 A$(0)=CHR$(32) +CHR$ (240) 4CHR$ (241) 

830 A$(1)=CHR$(32) +CHR$ (240) +CHR$ (242) 

840 B$=CHRS (243) 

850 N$=CHR$ (32) 

860 NN$=N$4N$ 

870 RETURN 

880 HY=1 

890 Hy=1 

900 BX=1 

910 BY=1 

920 Bi=BY 

930 Z=0.5 

940 ERASE TB 

950 DIM TB(40,25) 

960 PEN 3 

970 CLS 

980 FOR I=11 TO 31 

990 C=INT (RND#4) +4 

1000 FOR J=24 TO INTIRND#6)+14 STEP-{ 

1010 LOCATE I, 

1020 PRINT CHR$(2404C) ; 

1030 TB(],J)={ 

1040 NEXT J 

1050 NEXT I 

1060 RETURN 


ss AB = 





ER Là 
) IP | 
Vu ET Déc | 


> Boum = 


TS Je où 


Les rôles sont maintenant inversés. Vous manœuvrez la D.C.A. et devez 
essayer d'abattre les avions qui passent au-dessus de vous. Pour tirer, utili- 
sez n'importe quelle touche. Vous disposez au départ de quinze missiles. 
Si vous abattez dix avions, vous obtenez un bonus de dix points et dix mis- 
siles supplémentaires. 


10 REM ###4#4###44 

20 REM # D.C.A, # 

30 REM ####### 444 

40 GOSUB 630 

50 AS=RIGHTS (AS, 1)4LEFTS(A$, 39) 

60 BS=RIGHTS(BS,39)4LEFTS (B$,1) 

70 LOCATE 1,1 

80 PEN ! 

90 PRINT A$: 

100 LOCATE 1,3 

110 PRINT B$: 

120 R$=INKEYS 

130 IF R$C)"" AND MY=25 THEN MY=24:M$=CHR$ (244) : NN=NM-1 
140 PEN 3 

150 IF MYC325 THEN MY=HY-2:LOCATE MXMY:PRINT M$s:LOCATE MX,MY42:PRINT 0$: 
160 IF MYC)4 THEN 240 

170 IF MID$(B$,20,1)=0$ THEN 260 

180 LOCATE MX,3 
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190 PRINT Ef; 

200 LOCATE MX,MY 

210 PRINT 0$; 

220 PRINT 5$; 

230 S=S+1 

240 B#=LEFTS(B$,17)401$4RIGHTS(BS, 19) 
250 G0TO 350 

240 1F MYC52 THEN 380 

270 IF MIDS(A$,20,1)=0$ THEN 380 
280 LOCATE MK, 

290 PRINT E$; 

300 S=5+#1 

310 LOCATE MX,MY 

320 PRINT Of: 

330 PRINT 5$; 

340 A$=LEFTS(A$,17)+01$RIGHTS (AS, 19) 
350 IF s)l AND s/10=INT(S/10) THEN GOSUB 560 
340 MY=25 

370 M#=CHR$ (246) 

380 LOCATE 1,25 

390 PEN 3 

400 PRINT "SG s"1Gs"M 2 "3 NM: 

410 IF NMCI AND MY=25 THEN 440 

420 IF MVC=2 THEN LOCATE MX,2:PRINT 0$::MY=25:M4=CHR$ (246) 
430 GOTO 50 

440 IF SR THEN R=S 

450 LOCATE 8,11 

460 PRINT "SCORE :":6 "RECORD :°5R; 
470 LOCATE 16,15 

480 PRINT UNE AUTRE 7" 

490 R$=INKEVS 

500 1F R$C)"" THEN 490 

510 R$=INKEYÉ 

520 IF R$="" THEN 510 

530 IF R$C"N" AND R$C)"n" THEN 40 
540 CLS 

550 END 

560 A$=A1$ 

570 B$=B1$ 

580 NH=NM+10 

590 FOR I=1 T0 300 

600 NEXT I 
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D.C.A. 


b10 9=5+#10 
820 RETURN 

630 DEFINT A-2 

&40 MODE ! 

650 INK 1,18: INK 2,24: INK 3,6: INK 4,2 

680 CLS 

670 BORDER ! 

680 PAPER 4 

690 SYMBOL 240,193,224,224,255,255,255,84,0 
700 SYMBOL 241,248,144,249,253,255,253,241 ,94 
710 SYMBOL 242,31,9,159,191,255,191,143,6 
720 SYMBOL 243,131 ,7,135,255,255,255,2,0 
730 SYMBOL 244,16,56,56,56,56,56,16,58 

740 SYMBOL 245,0,0,0,0,0,7,7,7 

750 SYMBOL 246,56,54,56,254,254,255, 255,255 
780 SYHBOL 247,0,0,0,0,0,192,192, 192 

710 SYMBOL 248,146,84,58,254,56,84,148,0 
780 5=0 

790 A$="":B$="": D$=CHRS (32) :01$=20$40$+0$+08 
800 FOR I=1 TO 5 

B10 A$=A$+CHRS (240) +CHR$1241)4018+0$+0$ 

820 B$=B$+CHRS (242) 4CHR$ (243) +015+0$+0$ 

830 NEXT I 

840 A1$=A$:B1$=B$:ES$=CHRS (248) 

850 J$=CHRS (245) +CHR$ (246) +CHRS (247) 

840 MX=20:MY=25: M$=CHRS (248) :NM=15 

870 PEN 2:LOCATE MX-1,MY:PRINT J$: 

880 PEN 1:LOCATE 1,1:PRINT A$: 

890 S$=CHR$ (7) 

900 LOCATE 1,3:PRINT B$::RETURN 
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Deux joueurs s'affrontent pour se partager l'espace vital. Chacun doit 
s'efforcer, tout en se déplaçant, de ne jamais recouper sa trace ou celle de 
son adversaire, et de ne pas sortir du rectangle dessiné sur l'écran. Utilisez 
les touches suivantes : 


Joueur de droite : <P>, <L>, <:2> et <.2> 
Joueur de gauche : <W>,<A>, <S>et <Z2> 


10 REM #H#HHHHEE 

20 REN # TRACE # 

30 REM WH###RNEE 

40 DIN TB(40,25) 

50 GOSUB 720 

60 D$=INKEVS 

70 HB=(D$="L")-(D$=":")+(D$a"1") 

80 VB=(D$="P")-(D$=",")+(D$="p") 

90 HA=(D$="A")-(D$="5")+(D$="a")-(D$="s") 
100 VA=(D$="#")-(D$="7")+(D$="n")-(D$="2") 
110 IF HAC>0 THEN HI=HA:V1=0 

120 IF VAC>0 THEN VI=VA:HI=0 

130 IF HB(20 THEN H2=HB:V2=0 

140 IF VB<>0 THEN V2=VB:H2=0 
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150 K1=K1+H 
160 Y1=V14VI 

170 IF TB(XL,Y1)C)O THEN 330 
180 LOCATE X{,V1 

190 PEN 3 

200 PRINT Né: 

210 TBUKI,YL)=1 

220 K2=X24H2 

230 V2=Y24V? 

240 IF TB(X2,Y2))0 THEN 390 
250 LOCATE 42, Y2 

240 PEN 4 

270 PRINT Né; 

280 TB(X2,V2)=1 

290 PRINT S$: 

300 FOR 1=1 TO 200 

310 NEXT I 

320 GOTO 40 

330 F2=F2+1 

340 GOSUB 660 

350 1F F2=10 THEN 450 

380 IF INKEY#C)"" THEN 360 
370 GOSUB 790 

380 GOTO 40 

390 F1=Ft+1 

400 GOSUB 660 

410 IF Fi=10 THEN 520 

420 IF INKEY$()"" THEN 420 
430 GOSUB 790 

440 GOTO 40 

450 CLS 

480 PEN ! 

470 LOCATE 10,6 

480 PRINT "LE JOUEUR DROIT GAGNE"; 
490 LOCATE 16,11 

500 PRINT F2:"A":F{: 

510 GOTO 580 

520 CLS 

530 PEN ! 

540 LOCATE 10,6 

550 PRINT "LE JOUEUR GAUCHE GAGNE": 
580 LOCATE 16,11 


sa 29 


TRACE 


570 PRINT Fis"A":F2; 

580 LOCATE 15,14 

990 PRINT "UNE AUTRE 7"; 

400 IF INKEYSC)"" THEN 600 

610 D#=INKEYS 

620 IF D$="" THEN 610 

830 IF D$C)'N" THEN RUN 

640 CLS 

&50 END 

860 FOR 1=1 T0 5 

&70 PRINT 5: 

680 FOR 1=1 TO 100 

690 NEXT U 

700 NEXT I 

710 RETURN 

720 MODE ! 

730 INK 1,18 

740 INK 2,18 

750 INK 3,14 

780 INK 0,17 

170 PAPER 2 

780 BORDER 23 

790 ERASE TB 

800 DIM TB(40,25) 

810 CLS 

820 N$=CHRS(143) 

830 S$=CHR$(7) 

840 PEN ! 

850 FOR X1=1 TO 40 

860 LOCATE X1,1:PRINT N#3:TB(XI,1)=1 
870 LOCATE K1,24:PRINT N$::TB(X1,24)s1 
880 NEXT X1 

890 FOR Vi=2 TD 23 

900 LOCATE 1,Y1:PRINT N#s:TB(1,Y{)=1 
910 LOCATE 40,VI:PRINT N$::TB(40,YH)=1 
920 NEXT Y1 

930 LOCATE 3,25:PEN 3 

940 PRINT "JOUEUR GAUCHE :":F1; 

950 LOCATE 23,25:PEN 4 

980 PRINT "JOUEUR DROIT :":F2; 

970 X1=9:Y1=12:12232: Y2=12:H1z1 :V1=0 
980 H2=-1:V2=0:81=0: S2=0:RETURN 
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Partez aux sports d'hiver sans risque de vous casser une jambe ! Lancez- 
vous du haut de la piste et essayez de passer le plus grand nombre possible 
de portes sans heurter les piquets. Frappez n'importe quelle touche pour chan- 
ger de direction. 


19 REM ###444#44#43 

20 REM # SLALOM # 

30 REM YHY#KH#4LHEES 

40 GOSUB 450 

50 FOR K=1 TO 300 

60 IF K)=16 AND (K-5)/10=INT((K-5)/10) THEN GOSUB 330 
70 IF K<284 AND K/10=INT(K/10) THEN GOSUB 350 
BO IF INKEYS()"" THEN DX=-DX 

90 S1=5Y 

100 SX=8#+Dk 

110 IF SXX3 THEN SX=3:DX=-DX 

120 1F SX)38 THEN SX=38:DX=-D} 

130 LOCATE S1,5Y 

140 PRINT Bf: 

150 LOCATE 40,25 

160 PRINT RB4 

170 LOCATE 5X,SY 
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180 PRINT S#(DX/240,5) ; 

190 5128 

200 NEXT K 

210 LOCATE 6,6 

220 PEN 3 

230 PRINT "PORTE(S) RATEE(S) :"4T 
240 LOCATE 6,9 

250 PRINT "UNE AUTRE DESCENTE ?" 
260 D$=INKEVS 

210 IF D$(>"" THEN 260 

280 D$=INKEYS 

290 IF D$="" THEN 280 

400 IF D$C)"N" AND D$<}"n" THEN RUN 
310 CLS 

320 END 

330 IF SNC)P2+1 AND SXCDP242 THEN TaT#{:PRINT 28: 
340 RETURN 

350 P=P4+(INT(RND(1)#3)-1)8 

340 IF PC3 THEN P=11 

370 IF P335 THEN P=27 

380 P2=PI 

390 P1=P 

400 LOCATE P,24 

410 PEN 2 

420 PRINT P$: 

430 PEN 4 

440 RETURN 

450 DIM $(1) 

440 SYMBOL 240,16,32,241,18,28,8,16, 32 
470 SYMBOL 241,8,4,143,72,56,16,8,4 
480 SYMBOL 242,8,12,14,12,8,8,8,8 
490 SYMBOL 243,8,24,56,24,8,8,8,8 
500 S$(0)=CHR$ (240) 

510 S$(1)=2CHR$(241) 

520 R$=CHR$ (32) 

530 P$=CHRS (243) +B$+B$+CHR4 (242) 
540 MODE ! 

550 DY=-1 

560 SY=9 

570 SX=20 

580 5126 

590 P=19 
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SLALOM 


600 BB$=R$+8$ 
b10 Z$=CHR$ (7) 
620 INK 0,2 
630 INK 1,28 
b4O INK 2,14 
850 INK 3,22 
660 RORDER 23 
&70 CLS 

6BO RETURN 
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RAMASSE-MIETTES 


Voici une curieuse façon d'utiliser un ordinateur : vous devez vous effor- 
cer de ramasser le plus vite possible les miettes qui jonchent la nappe. Vous 
disposez de 30 secondes pour un nettoyage complet. Les miettes sont repré- 
sentées par des points noirs. Le joystick ou les touches de déplacement du 
curseur vous permettent de contrôler votre ramasse-miettes. 


10 REM HHH#HANIERHENEEE 

20 REN * RAMASSE-MIETTES x 

30 REM HHRRRENEHHENRERHEUEX 

40 DIN TB(40,25) 

50 GOTO 100 

60 K=J0Y(0) 

70 Di=(K=4)-(K=8) 

80 D2=(K=1)-(K=2) 

90 GOTO 200 

100 GOSUB 340 

110 LOCATE 1,25 

120 PEN 3 

130 PRINT TEMPS :"3INT(Z) , "SCORE :"5S3N$: 
140 PEN 1! 

150 IF 2<1 THEN 920 

160 ON JS GOTO 40 

170 D$=INKEYS$ 

180 Di=(D$=F1$)-(D$=F2$) 

190 D2=(D$=F3$)-(D$=F4$) 

200 IF D1<>0 THEN DX=Di:DY=0 

210 IF D2€)0 THEN DY=D2:DY=0 

220 XP=PX+DX 

230 YP=PY+DY 

240 IF TB(XP,VP)={ THEN KP=PX:YP=PY 
230 IF TB(XP,YP)22 THEN S=S+{:PRINT S$3:{=X+1 
260 LOCATE PX,PY 
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270 PRINT Né: 

280 LOCATE XP,VP 

290 PRINT J$; 

300 TB(XP,YP)=0 

310 P=XP 

320 PY=YP 

330 1=1-0,2 

340 IF XeNM THEN 1060 

350 GOTO 110 

340 CLS 

370 MODE ! 

380 INK 1,15 

390 INK 2,0 

400 INK 3,17 

410 INK 0,22 

420 BORDER 2 

430 LOCATE 11,11 

440 PRINT "JOYSTIEK 7": 

450 1F INKEYSC)"" THEN 450 

440 D$=INKEYS 

470 I=RND(1) 

480 IF D$="" THEN 440 

490 IF D$="0" OR D$= "o" THEN JS=1 ELSE JS=0 
500 CLS 

510 J$=CHR$ (224) 

520 F1$=CHR$ (242) : F2$=CHR$ (243) 
530 F3$=CHR$ (240) :FAS=CHRS (241) 
540 W$="," 

550 N$=CHRS (32) 

580 S=0 

570 NH=10 

580 X=0 

590 ERASE TB 

600 DIM TB(40,25) 

610 PEN 3 

620 FOR PX=1 TO 40 

630 LOCATE PK, 1 

b40 PRINT CHR$143)::TBUPX,1)=1 
850 LOCATE PX,24 

b6O PRINT CHR$(143)::TB(PX,241=f 
#70 NEXT PX 

680 FOR PY=2 TO 23 


RAMASSE-MIETTES 


690 LOCATE 1,PY 
700 PRINT CHR$(143)::TB(1,PY)=1 
710 LOCATE 40,PY 

720 PRINT CHR$(143)::TB(40,PY)=1 
730 NEXT PY 

740 PEN 3 

750 FOR I=1 TO NN 

760 PX=INT (RND (1) #38) +2 

770 PY=INT (RND (1) #22) +2 

780 IF TB(PX,PY)<)0 THEN 780 
790 LOCATE PX,PY 

BOO PRINT M$: : TBIPX,PY)=2 
810 NEXT I 

820 PEN ! 

830 PX=INT IRND (1) #38) +2 

840 PY=INT (RND{1) #22) +2 

850 IF TBIPX,PYI<)0 THEN 830 
860 LOCATE PX,PY 

870 PRINT dé: 

880 Z=30 

890 DX=0 

900 DY=0 

910 RETURN 

920 FOR 1=1 T0 500 

930 NEXT I 

940 IF INKEYS$C)"" THEN 940 
950 PEN 3 

980 IF SR THEN R=S 

970 LOCATE 14,11 

980 PRINT "RECORD :"5R3 

990 LOCATE 14,17 

1000 PRINT "UNE AUTRE ?": 
1010 D$=INKEYS 

1020 IF D$="" THEN 1010 

1030 IF D$<)"N" AND D$C)"n" THEN 100 
1040 CLS 

1050 END 

1080 NH=NM+ 

1070 LOCATE XP, YP 

1080 PRINT Né; 

1090 GOSUB 580 

1100 BOTO 110 


7. 





Essayez de traverser le champ de bataille avec votre tank tout en évitant 
les mines qui s'y trouvent placées au hasard par l'ordinateur. Chaque fois 
que vous atteignez le haut de l'écran, vous repartez pour un nouveau par- 
cours. Pour vous diriger, utilisez les touches de contrôle du curseur ou le 
joystick. 


10 REN ####4#544 
20 REM # TANK # 
30 REM ####44#4 
40 R=0 

50 DIN TB(40,25) 
&0 GOSUB 770 ° 
10 5=0 

80 M=40 

90 DL=100 

{00 D=0 

110 PEN 3 

120 FOR I=1 TO 40 
130 LOCATE I,{ 
140 PRINT B$; 

150 NEXT I 

160 PEN 1! 

{70 FOR 1={ T0 M 


AMSTRAD JEUX D'ACTION 


180 PX=INT (RND (1) #38) +2 
190 PY=INT (RND4 1 ) #20) +2 
200 LOCATE PX,PY 

210 PRINT M$: 

220 TBIPX,PY)=1 

230 NEXT I 

240 FOR 1=2 TO 25 

250 LOCATE 1,1 

280 PRINT M$; 

210 TB(1,1)=f 

280 LOCATE 40,1 

290 PRINT M$; 

300 TB(40,1)2i 

310 NEXT I 

320 JA=INTIRND(1)#21)+10 
330 JY=25 

340 LOCATE JX,JY 

350 PRINT 14; 

360 FOR I=1 TO DL 

370 NEXT I 

380 R$=INKEYS 

390 Di=(R$=F1$)-(R$=F2$) 
400 1F D1C)0 THEN D=D! 
410 1F R$F3$ THEN D=0 
420 LOCATE jx, jy 

430 PRINT CHRS (32): 

440 JX=JX+D 

450 JYaJV-1 

460 JX=JX+(J0V(0)=4)-(J0Y (0)=8) 
470 IF TB(JK,dY)C)0 THEN 540 
480 LOCATE JX, UV 

490 PRINT 1$; 

500 S=5+1 

510 SOUND 1,1000/8,1,15 
520 1F JY=1 THEN 690 
530 GOTO 360 

540 LOCATE JX,1Y 

550 PRINT E$; 

560 R$=INKEYS 

570 IF SR THEN R=S 

580 LOCATE 15,10 

590 PRINT "SCORE :"36; 


TANK 


600 LOCATE 15,13 
b10 PRINT "RECORD :"3R: 
620 LOCATE 15,18 

630 PRINT "UNE AUTRE ?"; 
640 RS=INKEYS 

650 IF R$="" THEN 440 
680 IF RSC'N" AND R$C)"n" THEN ERASE TB:G0T0 50 
&70 CLS 

680 END 

690 FOR I=1 TO 500 

700 NEXT ! 

710 MaW+i 

720 DL=DL-20 

130 ERASE TB 

740 DIM TB{40,25) 

750 CLS 

740 GOTO 100 

170 BORDER 22 

780 INK 0,25 

790 INK 1,0 

800 INK 2,16 

810 INK 3,1 

820 CLS 

830 N$='r" 

840 N$=CHR$ (32) 

850 SYMBOL 240,8,8,107,127,127,127,127,99 
840 J$=CHR$ (240) 

870 ES=CHR$(143) 

880 B$=E$ 

890 F1$2CHR$ (242) 

900 F2$CHR$ (243) 

910 F3$=CHR$ (224) 

920 RETURN 








ALPHABET 


Voici un jeu d'adresse assez difficile. Vous tenterez de marquer le plus 
grand nombre de points possible en effacant les lettres affichées par l'ordi- 
nateur. Utilisez le joystick ou les touches de contrôle du curseur. 

Attention : vous devez effacer les lettres dans l’ordre alphabétique en 
évitant les obstacles placés au hasard sur l'écran, et ceci en un temps limité. 
(Le temps qui vous reste est affiché au bas de l'écran.) Lorsque toutes les 
lettres sont effacées, le jeu reprend avec une lettre supplémentaire. 


10 REN HHHHEHHHAEHEHE 

20 REM # ALPHABET # 

30 REM SHSRE#HEENEE 

40 DIM TB(40,25) 

50 GOSUB 1020 

60 S=0 

70 X=0 

80 N$=CHRS (32) 

90 P$=CHRS (224) 

100 GOSUB 640 

110 FOR I=1 TO K 

120 ON JK GOTO 190 

130 D$=INKEYS 

140 DH=(D$=F1$)-(D$=F24) 
150 DV=(D$=F3$)-(D$2F4$) 
160 IF DHC)0 THEN DX=DH: DY=0 
170 IF DVC)0 THEN DY=DV:DN=0 
180 GOTO 220 

190 K=J0V(0) 

200 DX=(K=4)-(K=8) 

210 DY={K=1)-(K22) 

220 1=1-0,1 

230 LOCATE 1,25 

240 PEN 4 

250 PRINT "TEMPS :"3INT(2); 
260 IF 2C1 THEN 440 


AMSTRAD JEUX D'ACTION 


270 PX=PX+DX 

280 PY=PY+DY 

290 C=TRIPX,PY) 

300 IF C=1+64 THEN S=S+1:PRINT S$::G0T0 380 
310 IF CX)0 THEN PX=XP:PY=YP 
320 LOCATE XP,VP 

330 PRINT N#:TBUXP, YP)=0 
340 LOCATE PX,PY 

350 PRINT P#3:TBIPX,PY)=P 
360 NP=PX:VP=PY 

370 GOTO 120 

380 LOCATE XP, YP 

390 PRINT N$3:TB(XP, YP)=0 
400 LOCATE PX,PY 

410 PRINT P$3:TBIPX,PY)=P 
420 XP=PX:YP=PY 

430 NEXT I 

440 GOSUB 640 

450 GOTO 110 

480 D$=INKEYS 

470 IF RÇS THEN RS 

480 PEN 2 

490 LOCATE 11,11 

500 PRINT "TEMPS ECOULE"; 
510 LOCATE 11,14 

520 IF INKEV#C)"" THEN 520 
530 PEN 2 

540 PRINT "SCORE :":5; 
550 LOCATE 11,17 

560 PRINT "RECORD :"5R; 
570 LOCATE 11,20 

580 PRINT "UNE AUTRE ?"; 
590 D$=INKEYS 

600 1F D$="" THEN 590 

B10 IF D$C)"N" AND D$C)"n" THEN 60 
420 CLS 

630 END 

640 CLS 

650 INK 0,26 

680 INK 1,18 

b70 INK 2,22 

680 INK 3,0 





ALPHABET 


690 BORDER 17 
700 CLS 

710 X=X+1 

120 S$=CHR$ (7) :P2224 

730 ERASE TB:DIM TB(40,25) 

740 PEN { 

750 FOR Pl=1 TO 40 

760 LOCATE PX,1:PRINT CHRS(143); 

770 TR(P,1)=143: TB(PX, 24) 2143 

780 LOCATE PX,24:PRINT CHRS(143); 

790 NEXT PX 

800 FOR PY=2 TD 23 

810 LOCATE 1,PY:PRINT CHR$(143); 

820 LOCATE 40,PY:PRINT CHRS(143): 

830 TB(1,PY)=143:TR(40 PY)=143 

840 NEXT PY 

850 FOR Z=1 TO 120 

860 GOSUB 990 

870 LOCATE PX,PY:PRINT CHR${143) : TBUPX,PY)=143 
880 NEXT Z 

890 FOR Z=1 T0 X 

900 GOSUB 990 

910 PEN 3:LOCATE PX,PY:TB(PX,PY)=1484 
920 PRINT CHRS(Z+84); 

930 NEXT 2 

940 PEN 2 

950 GOSUB 990 

960 LOCATE PX,PY:PRINT P$:TB(PY,PY)=P 
970 XP=PX: YPaPY: 2230: DX=0: DY=0 

980 RETURN 

990 PX=INT (RND(1)#38)+2:PY=INT (RND (1)#23) #2 
1000 IF TBIPX,PY)<30 THEN 990 

1010 RETURN 

1020 MODE ! 

1030 CLS:LOCATE 11,11 

1040 PRINT “JOYSTICK 2"; 

1050 D$=INKEVS: C=RND (1) 

1060 IF D$="" THEN 1050 

1070 IF D$="0" OR D$="n" THEN JKe1 
1080 F1$2CHR$ 1242) :F2$=CHR$ (243) 

1090 F3$=CHR$ (240) :F4$=CHR$ (241) 

1100 RETURN 


+ 0 








ATTERRISSAGE 





Après un long voyage en apesanteur, poser une navette spatiale en dou- 
ceur n'est pas chose aisée ; mais grâce à votre ordinateur, vous allez être 
en mesure de vous entraîner sans danger. Vous devez poser votre navette 
sur l'une des quatre aires prévues à cet effet. Vous pouvez vous diriger vers 
la droite et Vers la gauche à l'aide des touches de contrôle du curseur ou 
du joystick. 


10 REM #HHHHEHHHERRFENEE 

20 REM *# ATTERRISSAGE * 

30 REM HHHHEENEENUEEEHEE 

40 SPEED KEY 5,5 

50 GOSUB 490 

60 FOR I=1 TO 100 

70 NEXT I 

80 GOSUB 670 

90 FOR Q=2 TO 23 

100 D$=INKEYS 

110 NH=NX 

120 NXENX+(D$=CHRS (242) )-(D$=CHR$(243)) 
130 NX=NX+(J0Y(0)=4)-{J0Y(0)=8) 
140 IF NX<2 THEN NX=2 

150 IF NX>38 THEN NX=38 

180 LOCATE NH,Q-I 

170 PRINT C$: 


AMSTRAD JEUX D'ACTION 


180 LOCATE NH,0 
190 PRINT Cé; 

200 LOCATE NX,0 

210 PRINT Nf: 

220 LOCATE NK,0+1 

230 PRINT M$; 

240 NEXT Q 

250 IF INT((NX-3)/10)=INN-3)/10 THEN GOTD 60 
280 PEN 3 

270 LOCATE NX,0 

280 PRINT C$: 

290 LOCATE NY,0-1 

300 PRINT C$; 

310 LOCATE NX-1,0+1 

320 PRINT Hé: 

330 PEN 2 

340 LOCATE 2,7 

350 PRINT "VOTRE NAVETTE S'EST ECRAGEE" 
340 LOCATE 12,12 

370 PRINT "SCORE :":8-4; 

380 LOCATE 11,15 

390 PRINT "UNE AUTRE 7": 

400 FOR 1=1 TO 100 

410 NEXT I 

420 IF INKEY#C)"" THEN G0TD 420 
430 SPEED KEY 30,5 

440 D$=INKEVS 

450 1F D$="" THEN 440 

480 IF D$C)"N" AND D$<)"n" THEN RUN 
470 CLS 

480 END 

490 INK 0,1 

500 INK 1,25 

510 INK 2,22 

520 INK 4,8 

530 BORDER { 

540 PEN { 

550 CLS 

580 GOSUR 770 

570 R#=CHR# (32) 

580 N#=CHR$ (240) +CHR4 (241) 

590 Cé=B$+B$ 


= 4 — 


ATTERRISSAGE 


600 M#=CHRS (242) +CHRS (243) 

b10 A$=CHR$ (244) +CHR$ (244) 

620 G$=CHR$ (242) 

b30 X$=CHR$ (243) 

bAO H$=CHRS (243) 4CHR$ (241 ) +CHR# (240) 4CHR$ (242) 
650 S=0 

bbO RETURN 

b70 FOR I=1 TO 20 

680 NEXT I 

890 CLS 

700 FOR I=0 T0 3 

710 LOCATE 3+1#10,25 

720 PRINT A; 

730 NEXT I 

740 S=6+1 

750 NU=INT (RND (1) #38) +2 

780 RETURN 

170 SYMBOL 240,0,31,63,127,239,239,255, 239 
780 SYMBOL 241,0,224,240,248,220, 220,252, 220 
790 SYMBOL 242,239,127,63,75,128,128,64,224 
800 SYMBOL 243,220,248,240,72,4,4,8,28 

810 SYMBOL 244,255,255,255 

820 RETURN 









CHASSE AU 
CANARD 





Votre micro-ordinateur vous invite à une partie de chasse au canard. Les 
canards volent de droite à gauche en haut de l'écran. Vous vous déplacez 
en utilisant le joystick ou les touches de contrôle du curseur. La touche 
< COPY > vous permet de vous arrêter. Vous pouvez tirer autant de car- 
touches que vous voulez, mais il ne passera que 20 canards, et votre but 
est d'en abattre le plus possible. Pour tirer, frappez la barre d'espacement 
ou pressez le bouton du joystick. Si vous atteignez un canard, vous mar- 
querez un point et vous le verrez tomber en battant des ailes. 


10 REM HÉHHENARERERERÉRERTE 
20 REM * CHASSE AU CANARD # 
30 REM ###KHERHNIENERREEENXE 
40 GOSUB 390 

30 Z=-7 

60 H=2+0,5 

70 CX=CY-1 

80 IF CK<1 THEN GOSUB 730 
90 IF NC=0 THEN 880 

100 LOCATE CX,CY 

110 PEN 0 

120 PRINT CC#(H); 

130 JX=JX+D{ 

140 IF JX>37 THEN JY=37 

150 IF JXCS3 THEN JX=3 

160 LOCATE X,Y 

170 PRINT N$; 


AMSTRAD JEUX D'ACTION 


180 LOCATE UX,JY 
190 PEN ! 

200 PRINT d$: 

210 X=J} 

220 IF TYC)Y THEN TY=TY-2:6070 240 

230 TX=UX 

240 IF TYC3 THEN 780 

250 LOCATE TX, TY 

280 PEN ! 

270 PRINT d$: 

280 1F TYC)JY THEN LOCATE TK,TV#2:PRINT Né: 
290 X$=INKEYS 


300 D=2#{ (X#=CHR$ (242) )-(X#=CHR$ (243) }) 
310 IF D()0 THEN D{=D 

320 1F X#=CHR#(224) THEN Di=0 

330 IF JS=1 THEN JA=JX+2#((J0V(0)=4)-(J0Y(0)=8)) 
340 IF X#C> N$ AND (J9=0 OR JOY(O)C18) THEN 50 
350 IF TYC)IY THEN 50 

340 TY=JY-2 

370 ThaJk 

380 GOTO 50 

390 CLS 

400 BORDER 24 

410 SYMBOL 240,0,0,0,15,31 

420 SYMBOL 241,43,124,254, 255,255 

430 SYMBOL 242,0,0,254,255,255,124,124,15 

440 SYMBOL 243,0,0,0,128,240 

450 SYMBOL 244,8,28,42,8,8,8,8,20 

480 SYMBOL 245,148,84,58,254,56,84,144 

470 INK 0,22 

480 INK 1,16 

490 INK 2,1 

500 INK 3,25 

510 LOCATE 14,11:PRINT “JOYSTICK 7"; 

520 K$=INKEYS 

530 IF X$="" THEN 520 

540 1F X$="0" OR X$="0" THEN 1921 ELSE J8=0 
550 CLS 

560 DIN CC$(1) 

570 J#=CHR$ (244) 

580 N#aCHR$(32) 

590 E$=CHR$ (245) 





CHASSE AU CANARD 


600 CCS (0)=CHR$(240)4CHRS(241)4CHRS (243) 4N$ 
b10 CCH(1)2CHR$ (240) +CHRS (242) 4CHR$ (243) 4N$ 
620 JX=20 

630 JV225 

b40 NC=20 

850 T=UX 

680 TY=JY 

b70 120,5 

680 CX=37 

890 CY=1 

700 X=X 

710 V=JY 

720 RETURN 

730 LOCATE 1,1 

740 PRINT N$4N$+N$; 

750 CX=37 

780 NC=NC-1 

770 RETURN 

780 IF TA=CX OR TX=CX+1 THEN 1000 
790 LOCATE TK, TY+2 

800 PRINT N$; 

810 LOCATE TX,TY 

820 PRINT J$: 

830 LOCATE TX,TY 

840 PRINT Né; 

850 TA=UX 

860 TY=JY 

870 IF NC()0 THEN 250 

880 CLS 

890 PEN 3 

900 LOCATE 14,41 

910 PRINT "SCORE : "35; 

920 LOCATE 13,14 

930 PRINT “UNE AUTRE ?"; 
940 IF INKEVSC)"" THEN 940 
950 X$=INKEYS 

980 IF X$="" THEN 950 

970 IF A#C)"N" AND K$C)2n® THEN RUN 
980 CLS 

990 END 

1000 LOCATE TX, TY 

1010 PRINT E$: 


= AT = 


1020 LOCATE TX,TY+2 
1030 PRINT Nf: 

1040 PRINT CHR$(7}; 
1050 FOR 1={ TO 50 
1060 NEXT I 

1070 S=5+1 

1080 DX=CX 

1090 C=37 

1100 PEN 0 

1110 FOR Ie2 TO 25 
1120 Z=-7 

1130 H=2+0,5 

1140 LOCATE DX,I-1 
1150 PRINT N$+N$+N$ 
1160 LOCATE DX,I 
1170 PRINT CC$(H); 
1180 PRINT CHR$(7); 
1190 FOR J=1 TO 10 
1200 NEXT j 

1210 NEXT I 

1220 NC=NC-1{ 

1230 FOR I=1 TO 500 
1240 NEXT ! 

1250 CLS 

1260 IF NC=0 THEN 880 
1270 TY=JY 

1280 G0TO 50 


AMSTRAD JEUX D'ACTION 





_… —… —— 











MICROPEDE 





Essayez de diriger votre mille-pattes robot le plus longtemps possible. 
ll doit se nourrir de fleurs vertes (les rouges sont empoisonnées) sans jamais 
sortir du cadre ou recouper son propre corps. La difficulté vient de ce que 
sa longueur augmente d'une unité à chaque repas, ce qui rend les déplace- 
ments de plus en plus délicats. Utilisez les touches de contrôle du curseur 
ou le joystick. 


1ü RE HEHRÉEHHÉFEREÉE 

20 REM *# MICROPEDE # 

30 REM ###H4NANENEES 

40 DIM TB(40,25) 

50 GOSUB 810 

60 Y$=INKEVS 

70 JY=J0Y(0) 

80 DX=(X$=F1$)-(X$=F2$) 

90 DX=DX+(JY=4)-(JY=8) 

100 DY=(X$=F3$)-(X$=F4$) 

110 DY=DY+(JY=1)-(JY=2) 

120 IF DX<>0 THEN X1=D:Y1=0 
130 IF DYC>0 THEN Yi=DY:11=0 
140 IF FLzi THEN FL=0:G60T0 220 
150 LOCATE A(1,X),A(1,V) 

160 PRINT N$; 

{70 TB(A(1,X) ,A(1,Y))=0 


AMSTRAD JEUX D'ACTION 


180 FOR I=1 TO L 
190 ACI,V)=A(T#1,V) 

200 A(I,KI=A(I41,X) 

210 NEXT I 

220 AL, Y)=A(L=1,Y)+#Y1 
230 AL,K)=A(L-1,X)+41 
240 G=TB(AIL,K) AL, VI) 
250 IF 6=B THEN 310 

260 IF 8CN THEN 380 
270 LOCATE AUL,X) AL, Y) 
280 PRINT Mé: 

290 TBIAUL,K) ACL, Y))=H 
300 GOTO 40 

310 GOSUB 1310 

320 LOCATE AUL,K),A(L, Ÿ) 
330 PRINT M$; 

340 TB(AIL,N) ,AUL, Y) )=h 
350 LaL+1 

360 FLai 

370 6070 40 

380 GOSUB 500 

390 LOCATE 11,10 

400 PRINT "SCORE :";L#10-70; 
410 LOCATE 11,15 

420 PRINT "UNE AUTRE 7: 
430 X$=INKEY# 

440 IF X$C)"" THEN 430 
450 K$=INKEYS 

480 IF At="" THEN 450 
470 IF X#C)"N" AND X$C)"n" THEN RUN 
480 CLS 

490 END 

500 PEN ! 

510 FOR Ii T0 4 

520 LOCATE AIL,X) ,AIL,Y) 
530 PRINT Né; 

540 PRINT CHR$(7); 

550 LOCATE A(L,K) ,A(L,Ÿ) 
560 PRINT "#"s 

570 TBIAIL,X) ,A(L,Y))=N 
580 NEXT I 

590 PEN 3 


s En — 


600 RETURN 

610 INK 0,24 

620 INK 1,16 

630 INK 2,22 

640 INK 3,2 

650 BORDER 8 

660 CLS 

670 GOSUB 730 
680 GOSUB 940 
690 GOSUB 1030 
700 GOSUB 1270 
710 GOSUB 1310 
720 RETURN 

130 NS$=CHR$ (32) 
740 N=0 

750 H$="g" 

780 Ha 

770 B$="4" 

780 Ba2 

790 DIM A(70,2) 
800 M$="@" 

810 Ma3 

820 L=ÿ 

830 DO=1 

840 Ya 

850 X22 

860 FL=0 

870 X{n1 

880 Y1=0 

890 F1#=CHR$ 1242) 
900 F2#=CHR$ 1243) 
910 F3$=CHRS (240) 
920 F4$=CHRS (241) 
930 RETURN 

940 PEN 3 

950 FOR 1=1 TO L 
980 A(I,Y)=13 
970 A(I,X)=34] 
980 LOCATE AI1,K),A(1,V) 
990 PRINT N$; 
1000 TBUA(I,X),AUL,Y))=N 
1010 NEXT 1 


MICROPEDE 





1020 RETURN 
1030 PEN 1 

1040 FOR Ii TO 40 

1050 LOCATE 1,1 

1080 PRINT H$: 

1070 TB(1,1) 2H 

1080 LOCATE 1,25 

1090 PRINT H$s 

1100 TR(I, 25) 2H 

1110 NEXT I 

1120 FÜR I=2 T0 24 

1130 LOCATE 1,1 

1140 PRINT Hé: 

1150 TB(1,1)2k 

1180 LOCATE 40,1 

1170 PRINT Hé: 

1180 TB(40,1)=H 

1190 NEXT I 

1200 FOR I=1 TO 80 

1210 GOSUB 1270 

1220 LOCATE PX,PY 

1230 PRINT Hé; 

1240 TBIPX,PY)=H 

1250 NEXT I 

1260 RETURN 

1270 PX=INT(RND(1)#3842) 
1280 PY=INT (RND(1)#23+42) 
1290 IF TB(PX,PY)()0 THEN 1270 
1300 RETURN 

1310 GOSUB 1270 

1320 PEN 2 

1330 LOCATE PX,PY 

1340 PRINT Bf: 

1350 TB(PX,PY)=2B 

1360 PEN 3 

1370 RETURN 


AMSTRAD JEUX D'ACTION 
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NUMERIX 





Dans ce jeu, vous devez bombarder à l’aide de votre avion les chiffres 
qui se trouvent en bas de l'écran afin d'ajouter ceux-ci à votre total de points. 
Pour lâcher une bombe, tapez une touche quelconque. Chaque chiffre atteint 
augmente le nombre de bombes disponibles. 


10 REM #X#HXEENHERE 

20 REM # NUMERIK # 

30 REM #KEHERNENEX 

40 DIM TB(40,25) 

50 R=0 

60 ERASE TB 

70 DIM TB(40,25) 

80 GOSUB 480 

90 LOCATE AX,AY 

100 PEN 1 

110 PRINT A; 

120 PEN ? 

130 X$=INKEYS 

140 IF X$C)"" AND BY=0 THEN BX=AK:BY=AY#1 : NH=NN-1 
150 IF BYC)0 THEN BY=B#i 

160 1F BV>25 THEN LOCATE BX,BV-1:PRINT N$;:BY=0:1F NMC1 THEN 330 
170 IF BYC)0 AND TB(BX,BV)C)0 THEN GOSUB 230 





AMSTRAD JEUX D'ACTION 


180 IF BYC)0 THEN LOCATE BX,BY-1:PRINT N$3:LOCATE BX,BV:PRINT RS: 
190 IF BY=0 THEN FOR I=1 TO S:NENT I 
200 AX=AX-1 

210 IF ANCA THEN AX=SB:LOCATE 1 ,AY:PRINT Hé: 
220 G0TO 90 

230 LOCATE BX,BY-1 

240 PRINT N$; 

250 LOCATE BX,BY 

280 PRINT Né; 

270 S=5+TB(BX,BV)#10 

280 TBIBX,BY)=0 

290 BY=0 

300 NH=NM+0,5 

310 GOSUB 690 

320 RETURN 

330 PEN 3 

340 LOCATE 15,10 

350 PRINT "SCORE :":6; 

360 IF SR THEN LET ReS 

370 LOCATE 15,13 

380 PRINT "RECORD :%:A 

390 LOCATE 15,16 

400 PRINT "UNE AUTRE 7"; 

410 X$=INKEYS 

420 IF K$C)"" THEN 410 

430 X$=INKEYS 

440 IF K$="" THEN 430 

450 IF XS$C)"N" AND X#C)"n" THEN GOT 40 
480 CLS 

470 END 

480 INK 0,23 

490 INK 1,9 

500 INK 2,14 

510 INK 3,0 

520 BORDER 2 

530 CLS 

540 N$=CHR$ (32) 

550 A$=CHR$ (240) +CHR$ (241) 4N$ 
560 AX=38 

570 AY=3 

580 B$=CHR$ (242) 

590 M$=N$+N$+4NS 





NUMERIX 


600 Bl=0 

610 BY=0 

620 GOSUB 780 

630 FOR I=1 T0 15 

640 GOSUB 690 

650 NEXT ! 

bb0 NM=20 

b70 5=0 

680 RETURN 

890 J=INT(RND(1)49)+1 

700 X=INT(RND(1)#39)+1 

710 Y=INT(RND(1)#3)+23 

720 IF TBIX,VIC30 THEN 700 
130 PEN 3 

740 LOCATE X,Y 

750 PRINT CHRS(J+48) à 

780 TBIX,Y)=J 
770 RETURN 

780 SYMBOL 240,0, 
790 SYHBOL 241,0 
800 SYMBOL 242,4 
810 RETURN 


0,0,0,63,127,255 
0,1,3,255,255,255 
b,56,124,124,124,5b,16 


0, 
10, 
0,1 
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Un porte-avions ennemi s'est aventuré dans les eaux territoriales et refuse 
d'obéir aux sommations. Aux commandes de votre Mirage 2000, vous devez 
absolument le détruire avant qu'il ne menace votre base. Tapez une touche 
quelconque pour tirer. 


10 REM #H###EREHE#E 

20 REM * EXOCET # 

30 REM #HHXHXHKEEREX 

40 R=0 

50 GOSUB 880 

60 GOSUB 700 

70 PEN ! 

80 LOCATE AX,AY:PRINT A$3 

90 IF BX)34 THEN LOCATE 37,BY:PRINT M#;:BB=1:G0T0 120 
100 PEN 7 

110 LOCATE BX,BY:PRINT B$: 

120 AN=AX-1 

130 1F ANA THEN LOCATE 1,AY:PRINT M$; :4X238 

140 BB=BB+0, 2 

150 BY=INT (BB) 

160 X$=INKEYS 

170 IF X#C)"" AND EV=0 THEN EX=AX:EY=AV+{ :NX=NY-1 


AMSTRAD JEUX D'ACTION 


180 IF EYC)0 THEN GOTO 220 
190 FOR I=1 TO 10 

200 NEXT ! 

210 GOTO 70 

220 EX=EN-1 

230 EV=EV# 

240 LOCATE EX41,EY-1:PRINT N$; 
250 1F EXC1 THEN EX=40 

240 IF EV=26 THEN G0TO 310 
210 IF EY=25 AND ABS(EX-2-BK)<2 THEN GOSUB 530 
280 PEN ? 

290 LOCATE EXSEV:PRINT Ef; 
300 60TO 70 

310 IF EX=40 THEN EX=1 

320 LOCATE EX+#1,EY-1:PRINT Né: 
330 EV=0 

340 EX=0 

350 1F NN=0 THEN 370 

340 60TO 70 

370 CLS 

380 IF SDR THEN R=S 

390 X$=INKEVS 

400 IF X#C)"" THEN 390 

410 PEN 3 

420 LOCATE 11,10 

430 PRINT "SCORE : "36; 

440 LOCATE 11,13 

450 PRINT "RECORD :"3R3 
480 LOCATE 11,16 

470 PRINT "UNE AUTRE ?"; 
480 X$=INKEYS 

490 IF X$="" THEN 480 

500 IF X$C"N" AND X$C)'n" THEN 80 
510 CLS 

520 END 

530 LOCATE EN+1,EY-1 

540 PRINT N$; 

550 628+10 

560 PEN 2 

570 LOCATE EX,EY 

580 PRINT F$; 

590 FOR I=1 T0 30 


ii 


800 X=INTIRND(11#4) 

610 YaINT(RND(1)#6) 

820 LOCATE EX+N-1,EY-Y 

830 PRINT F#3 

640 NEXT ! 

650 FOR 1=1 TO 200 

b&O NEXT [ 

670 NXeNX+1 

680 CLS 

890 GOTO 70 

700 CLS 

710 B#=CHRS(32)+CHR$ (240) +CHRS (241) +CHR$ (242) 
720 AX238 

130 820 

740 BBs1 

750 Bk=1 

740 A$=CHRS (243) +CHR$ (244) +CHRS (32) 
770 N$=CHR$ (32) 

780 H$=N$+N$4N$ 

790 E$=CHR$ (245) 

800 F$=CHR$ (246) 

810 EX=0 

820 EY=0 

830 XC=2 

840 NX=20 

850 BY225 

860 AY=8 

870 RETURN 

880 BORDER 2 

890 INK 0,23 

900 INK 1,25 

910 INK 2,16 

920 INK 3,0 

930 CLS 

940 SYMBOL 240,0,0,0,0,7,255,255,127 
950 SYMBOL 241,16,16,56,252,255,255,255,255 
980 SYMBOL 242,0,0,0,0,224,255,252,248 
970 SYMBOL 243,0,0,0,0,0,63,127,255 
980 SYMBOL 244,0,0,0,1,3,255,255,255 
990 SYMBOL 245,0,0,0,0,125,255,125,0 
1000 SVMBOL 246,8,33,128,10,0,40,0,16 
1010 RETURN 


EXOCET 


ss 


ot 


fi L LL # 
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Vous devez maintenant aider une pauvre tortue à regagner la mer en évi- 
tant les crabes voraces qui patrouillent sur la plage. Chaque tortue amenée 
au but rapporte un point. Vous disposez de cinq vies pour tenter de marquer 
un score maximum. Utilisez les touches de contrôle du curseur pour avan- 
cer et pour reculer. 


10 REM ##4##44543 

20 REM # CRABES « 

30 REN #H###H#EE4 

40 DEFINT A-7 

50 GOSUB 850 

60 LOCATE 1,21 

70 PEN ! 

80 PRINT "VIE(S) REST, ":NP; 

90 A$=RIGHTS (AS, 1) #LEFT# (A$, 39) 
100 B$=RIGHTS (B$,39)4LEFTS(B$,1) 
110 LOCATE 1,1 

120 PRINT Af: 

130 LOCATE 1,K2 

140 PRINT B 

150 LOCATE 1,X3 

160 PRINT A$; 

170 LOCATE 1,X4 

180 PRINT B$: 

190 D$=INKEYS 

200 1F INKEYS$C)®" THEN 200 





AMSTRAD JEUX D'ACTION 


210 PYaPY+(D$=F 18) =(D$=F 28) 
220 IF PY)11 THEN PY=1i 
230 IF PY=3 THEN 380 
240 CS=N$ 

250 IF PY=X1 OR PY2X3 THEN C#=HIDS (ASP 41) 
240 1F PYak2 OR PYaX4 THEN Cé=NID$(B$,PX 1) 
210 IF CSONS THEN 560 
280 LOCATE PX,YP 

290 PRINT Né; 

300 LOCATE PX,PY 

310 PEN 3 

320 PRINT P$; 

330 PEN { 

340 YP=PY 

250 TaT4i 

340 IF 13500 THEN 680 
370 6070 40 

380 LOCATE PX,YP 

390 PRINT Né: 

400 LOCATE PX,PY 

410 PEN 3 

420 PRINT P$ 

#30 PEN ! 

440 PRINT CHR$(7); 

450 FOR I=1 TO 200 

480 NEXT I 

470 LOCATE PY,PY 

480 PRINT Né; 

490 PYa10 

500 YP=PY 

510 Ss8+i 

320 LOCATE 1,1 

530 PRINT "SCORE 1"38,,"RECORD :"3R; 
540 60SUB 1170 

550 60TO 40 

560 NP=NP-1 

570 PEN 2 

280 LOCATE PX,YP 

590 PRINT N$3 

800 LOCATE PX,PY 

610 PRINT CHR$ (225) 
820 BOSUB 1220 


iii 


CRABES 


630 IF NP=0 THEN 680 

640 PY=10 

650 YP=PY 

660 GOSUB 1170 

670 BOTO 60 

680 CLS 

890 IF SR THEN R=S 

895 PEN ! 

700 1F T€500 THEN 730 

710 LOCATE 11,9 

720 PRINT "## TEMPS ECOULE ##°; 
730 LOCATE 11,13 

740 PRINT "SCORE :"36: 

750 LOCATE 11,17 

780 PRINT "RECORD :":R; 

770 LOCATE 11,21 

780 PRINT “UNE AUTRE 7"; 

790 1F INKEV#C)®" THEN 790 

800 D$=INKEYS 

810 IF Dé="" THEN 790 

820 1F D$C)"N" AND D$C)'n" THEN 50 
830 CLS 

840 END 

850 NODE ! 

860 INK 0,24 

870 INK 1,0 

880 INK 2,16 

890 INK 3,22 

900 BORDER 2 

910 CLS 

920 SYMBOL 240,24,90,126,60,80, 126,90 
930 SYHBOL 241,7,15,31,31,18,16, 12 
940 SYHBOL 242,224,240,248,248,72,8,48 
950 P$=CHR$ (240) 

980 NS=CHR$ (32) 

970 F1$2CHR$ (240) 

980 F2$=CHR$ (241) 

990 Afenr 

1000 Bé="" 

1010 S=0 

1020 NP=5 

1030 PX=20 
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AMSTRAD JEUX D'ACTION 


1040 PY=it 

1050 YP=PY 

1060 X1=5 

1070 X22b 

1080 X3=8 

1090 X4n9 

1100 T=0 

1110 RESTORE 

1120 FOR 1=1 TD 40 

1130 READ A 

1140 AS=A$+CHRS (A) 

1150 NEXT I 

1180 B$=Af 

1170 X=RND(38)+1 

1180 AS=RIBHTS(AS,NI4LEFTS (A$,40-X) 
1190 RETURN 

1200 DATA 32,241,242,32,32,241,242,32,32,32,241 ,242,92,32,32,32,32,241,242,52 
1210 DATA 32,82,241,242,92,82,921241,242,92,82,241,242,32,92,241 ,242,52,52,52,37 
1220 SOUND 1,500,100,15 
1230 SOUND 1,0,2 

1240 SOUND 1,500,75,15 
1250 SOUND 1,0,2 

1260 SOUND 1,500,25,15 
1270 SOUND 1,0,2 

1280 SOUND 1,500,100,15 
1290 SOUND 1,0,2 

1300 SOUND 1,425,75,15 
1310 SOUND 1,0,2 

1320 SOUND 1,450,25,15 
1330 SOUND 1,0,2 

1340 SOUND 1,450,75,15 
1350 SOUND 1,0,2 

1360 SOUND 1,500,25,15 
1370 SOUND 1,0,2 

1380 SOUND 1,500,75,15 
1390 SOUND 1,0,2 

1400 SOUND 1,525,25,15 
1410 SOUND 1,0,2 

1420 SOUND 1,500,100,15 
1430 FOR I=1 TO 200 
1440 NEXT I 

1450 RETURN 


D 
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ASSE-BRIQUE 





Voici un jeu que l’on a l'habitude de voir dans les cafés. Grâce à votre 
ordinateur, vous allez maintenant pouvoir en profiter sans dépenser un cen- 
time. Le but du jeu est simple : essayer de détruire un mur de briques à l'aide 
d'une balle que vous devez renvoyer avec votre raquette. Chaque brique cas- 
sée rapporte un point. Lorsque le mur est entièrement détruit, un nouveau 
mur apparaît. Vous disposez de dix balles pour tenter de marquer un score 
maximum. Utilisez le joystick ou les touches de contrôle du curseur pour 
déplacer la raquette. 


10 REM KHHKHKHHHEREENENRE 

20 REM + CASSE-BRIQUES # 

30 REM KEHKERAARAEHERENX 

4Q DIM TB(40,25) 

JO GOSUB 730 

60 GOTO 200 

10 D=2#((J0V(0)=4)-(J0Y(0)=8)) 
80 IF D(:0 THEN D0=D 

90 IF JOY(0)=Q THEN DO=0 

100 RX=RX+D0 

110 CH=SGN(D0) 

120 RETURN 

130 D$=INKEYS 

140 D=2*{(D$2F1$)-(D$=F2$)) 
150 IF D(>0 THEN D0=D 

160 IF D$=CHR$(224) THEN DG=0 
170 RX=RX+D0 


AMSTRAD JEUX D'ACTION 


180 CH=SGN (DO) 
190 RETURN 

200 LOCATE BX,BY 

210 PEN ! 

220 PRINT N$: 

230 BX=BX4Dk 

240 BY=BY+DY 

250 1F TB(BK,BV)C)0 THEN DV=-DV:6=5+{:PRINT CHR$ (7): 
280 LOCATE BX,BY 

210 PEN 0 

280 PRINT B#:TB(BN, BY) =0 

290 IF BY=23 AND ABSIBX-RX-3)>1 THEN 420 
300 IF BY=23 AND BX)S AND BXC36 THEN LOCATE BX,BY:PRINT N$::BX=BX4CH 
310 IF BY=23 THEN PRINT CHRS(7);:DY=-DY 
320 IF BY=2 THEN PRINT CHR$(7) : :DV=-DY 
330 1F BN=3 OR BX=38 THEN PRINT CHRS(7)::DX=-D} 
340 ON JS GOSUB 70,130 

350 IF RKCA THEN Ri=i 

380 IF RN>34 THEN RI=34 

370 LOCATE RX,RY 

380 PEN 2 

390 PRINT Ré: 

400 IF S=204 THEN GOSUB 1290 

410 GOTO 200 

420 NB=NB+! 

430 IF NB=11 THEN 540 

440 LOCATE BX,BY 

450 PRINT N$; 

480 FOR I=1 T0 3 

470 PRINT CHR$(7): 

480 FOR J=1 TO 100 

490 NEXT J 

500 NEXT I 

510 D0=0 

520 GOSUB 1230 

530 GOTO 200 

540 LOCATE 14,6 

550 PEN 3 

560 S=S+404#K 

570 PRINT "SCORE :"35: 

580 IF SRI THEN RI=S 

590 LOCATE 14,1 


D 





CASSE-BRIQUES 


600 PRINT "RECORD :";R1; 
610 LOCATE 14,16 

620 PRINT "UNE AUTRE 7"; 

630 NB=0 

640 K=0 

650 8=0 

660 D$=INKEVS 

670 IF D#C)"" THEN 860 

680 D$=INKEYS 

690 IF D$="" THEN 880 

700 IF D$C>"N" AND D$C)"n" THEN 50 
710 CLS 

720 END 

730 MODE ! 

740 CLS 

750 INK 0,2 

780 INK 1,25 

770 INK 2,0 

780 INK 3,14 

790 BORDER 17 

800 PAPER 1 

810 SYMBOL 240,255,255,255 

820 SYNBOL 241,60,126,255,255,255, 255, 126,80 
830 SYMBOL 242,8,8,8,8,8,8,8,255 
840 SYHBOL 243,0,0,0,0,0,0,0,255 
850 Bi$=CHR$ 1242) 

860 B2$=CHRS (243) 

870 N$=CHR$ (32) 

880 RS=N$+NS4CHRS (240) 4CHR$ (240) 4CHRS (240) #N$4N$ 
890 B$=CHR$(241) 

900 F1$=CHR$ (242) 

910 F2#=CHR$ (243) 

920 LOCATE 2,11 

930 PEN 2 

940 PRINT "JOYSTICK (0 ou N) 2": 
950 D$=INKEYS 

980 IF D$="" THEN 950 

970 IF D$="0" THEN JS=1 ELSE J5=2 
980 CLS 

990 PEN 2 

1000 FOR BX=2 TO 39 

1010 LOCATE BK, 1 


= 


AMSTRAD JEUX D'ACTION 


1020 PRINT CHR$ (143); 

1030 NEXT BI 

1040 FOR BY=2 TO 23 

1050 LOCATE 2,BY 

1060 PRINT CHR$ (143); 

1070 LOCATE 39,BY 

1080 PRINT CHR$ (143); 

1090 NEXT BY 

1100 PAPER 3 

1110 FOR BY=3 T0 8 

1120 FOR BX=4 TO 36 STEP 2 
1130 TB(BX,BY)=1:TB(BX+1,BY)=1 
1140 LOCATE BYX,BY 

1150 IF BY/26)INT(BY/2) THEN 1180 
1160 PRINT B1$:B2$; 

1170 G60T0 1190 

1180 PRINT B2$;B1$: 

1190 NEXT BY 

1200 NEXT BY 

1210 PAPER | 

1220 RA=17 

1230 RY=24 

{240 BY=23 

1250 BX=INTIRND (1) #32)+5 
1260 DY=-1 

1270 DX=(INT (RND(1)#2)-0,5) #2 
1280 RETURN 

1290 K=k+i 

1300 S=0 

1310 LOCATE BX,BY 

1320 PRINT N$; 

1330 LOCATE RX+2,RY 

1340 PRINT N$:N$:N$; 

1350 G6OSUB 990 

1360 RETURN 


= A 2 











POURSUITE 





Le voleur s'est échappé, emportant le magot. (Il est représenté par un 
masque noir.) || se cache dans la ville et vous avez trente minutes pour le 
débusquer et l'arrêter. Attention, pas de précipitation ! En effet, si vous vous 
jetez sur lui sans réfléchir, il y a toutes les chances pour qu'il vous file entre 
les doigts. La meilleure façon de vous y prendre est de l’aborder de côté. 
(Efficace à tous les coups à condition de ne pas le rater |) Si vous ne vous 
sentez pas assez sûr de vous, attaquez-le de face, ce qui est plus facile mais 
moins efficace car moins discret. Encore un conseil : n'essayez pas de le 
poursuivre ; cela ne vous mèneraïit à rien car il est aussi rapide que vous. 
Observez plutôt ses mouvements comme un vrai détective. Quand vous le 
verrez tourner en rond, approchez-vous sans faire de bruit et surgissez au 
bon moment. Mais rappelez-vous, le temps presse ! 

Pour vous déplacer, utilisez le joystick ou les touches de contrôle du 
curseur. 


10 REM H##H##RH#R HAE 
20 REM # POURSUITE # 
30 REM HRRHEREÉRÉHRER 
40 DIM TB(40,25) 

50 GOSUB 1560 

60 5=0 

70 N$=CHR$ (32) 

80 V$=CHR$ (224) 

90 V=224 

100 P$=CHR$ (251) 

110 P2251 

120 GOSUB 820 


AMSTRAD JEUX D'ACTION 


130 ON JK GOSUB 200 

140 D$=INKEYS 

150 DHe(D$=F1$)-(D$2F2$) 

160 DV=(D$=F34)-(D$=F4$) 

170 IF DHC0 THEN DX=DH: DY=0 
180 1F DV<30 THEN DY=DV:DX=0 
190 6OTO 230 

200 ST=J0Y(0) 

210 DX=(8T=4)-(ST=8) 

220 DY=(5T=1)-(ST=2) 

230 1=1-0,2 

240 LOCATE 1,25 

250 PEN ! 

280 PRINT "TEMPS 2": INT(2#1| 
270 IF 20 THEN 520 

280 PX=PX4#DX 

290 PY=PY4#DY 

300 C=TB(PY,PY) 

310 IF CeV THEN 1270 

320 1F C()0 THEN PX=XP:PY=VP 
330 LOCATE XP, YP 

340 PRINT N$3:TBUXP, YP)=0 
350 LOCATE PX,PY 

340 PEN 2 

370 PRINT P$::TB(PX,PY)P 
380 YP=PY 

390 XP=PX 

400 VX=VX4CX 

410 WY=VY#CY 

420 1F TB(VX,VY}<30 THEN GOSUB 460 
430 IF TB(VX,VY)€30 THEN 400 
440 LOCATE XV, VV 

450 PEN ! 

480 PRINT N$3::TBIXV, VV)=0 
470 LOCATE VX, 

480 PRINT V$3: TBUVX,WY)=V 
490 XV=VX 

500 YV=VY 

510 GOTO 130 

520 IF INKEYS()"" THEN 520 
530 IF RÇS THEN R=S 

540 PEN { 
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POURSUITE 


550 LOCATE 11,7 

560 PRINT “TEMPS ECOULE"; 

570 LOCATE 11,11 

580 PRINT "SCORE "384 

590 LOCATE 11,19 

600 PRINT "UNE AUTRE 7"; 

610 D#=INKEYS 

820 1F Dé="" THEN 610 

630 IF D$C)"N" AND D${)"n" THEN RUN 
640 CLS 

650 END 

680 DTaDT+#1 

670 GOSUB 770 

880 IF TB(NV+CA,YV4CY)=0 THEN VX=XV4#CX: VY=YV+CV: RETURN 
890 DT=DT-2 

700 GOSUB 770 

710 1F TBIXV4CX,VV4CV)=0 THEN VX=XV4CX: VY=YV4CY: RETURN 
720 DT=DT-1 

130 GOSUB 770 

740 VX=XV4CX 

750 WY=YV4CY 

780 RETURN 

770 1F DT4 THEN DT=DT-4 

780 1F DTC1 THEN DT=DT#4 

190 CX=(DT=1)-(D723) 

800 CY=(DT=2)-(DT=4) 

810 RETURN 

820 CLS 

830 PEN 2 

840 FOR Vl=1 TO 40 

850 LOCATE VX, 

880 PRINT CHR$(143)3:TB(VX,1)=143 
870 LOCATE VX,24 

880 PRINT CHR$(143)3:TB(VX, 2412143 
890 NEXT VX 

900 FOR VY=2 TO 23 

910 LOCATE 1,WY 

920 PRINT CHR$(143)::TB(1,VY)=143 
930 LOCATE 40,WY 

940 PRINT CHR (143): TB(40,VY)=143 
950 NEXT WY 

980 PEN 3 
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AMSTRAD JEUX D'ACTION 


970 FOR VX=1 T0 150 
980 GOSUB 1230 

990 LOCATE PX,PY 

1000 PRINT CHR$(143)::TBIPX,PY)=143 
1040 NEXT VX 

1020 GOSUB 1230 

1030 VX=PX 

1040 VY=PY 

1050 PEN ! 

1080 LOCATE VX,VWY 

1070 PRINT V$:2TBUVX ,WY)=V 
1080 XV=VX 

1090 YU=UY 

1100 GOSUB 1230 

1110 PEN 3 

1120 LOCATE PX,PY 

1130 PRINT P#:2:TB{PX,PY)=P 
1140 YP=PX 

1150 YP=PY 

1140 2=30 

1170 CI=0 

1180 CY=0 

1190 DX=0 

1200 DY=0 

1210 DT=0 

1220 RETURN 

1230 PA=INT (RND{1) #38) +2 
1240 PY= INT CRND (1 ) #22) 42 
1250 IF TB(PX,PY)C)O THEN 1230 
1280 RETURN 

1270 LOCATE VX,VY:PEN 2:PRINT CHR$ (225) : 
1280 FOR I=1 T0 5 

1290 SOUND 1,450,100,15 
1300 SOUND 1,500,100,15 
1310 NEXT I 

1320 ERASE TB 

1330 DIM TR(40,25) 

1340 S=$+1 

1350 6OTO 120 

1380 NODE 1 

1370 BORDER { 

1380 INK 0,2 


POURSUITE 


1390 INK 1,18 
1400 INK 2,22 

1410 INK 3,25 

1420 CLS 

1430 F1$=CHR$ (242) 

1440 F2$=CHR$ (243) 

1450 F3#=CHR$ (240) 

1480 F4$=CHRS (241) 

1470 LOCATE 11,11 

1480 PRINT "JOYSTICK 2"; 
1490 D$=INKEYS 

1500 PX=RND(1) 

1510 IF Dé="" THEN 1490 
1520 IF D$="0" OR D$="o" THEN JK=1 
1530 RETURN 
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Vous voici seul, abandonné sur une planète défendue par des robots meur- 
triers. Le sol est truffé de mines qu'il vous faut absolument éviter. Les mines 
sont représentées sur l'écran par des losanges rouges. Au début du jeu, cinq 
robots sont présents sur le terrain. Sans perdre une seconde, ils se précipi- 
tent sur vous en suivant toujours le plus court chemin. Par chance, les robots 
sont aveugles et ne voient pas les mines qui se trouvent entre eux et vous, 
ce qui vous permet, en vous déplaçant judicieusement, de les éliminer. Utili- 
sez pour cela le joystick ou les touches : 


<Q> <W2> <E> 
<A2> <D2> 
Ste <X > SC? 


suivant la direction que vous avez choisie. Lorsque tous les robots sont éli- 
minés, le jeu reprend avec un robot supplémentaire. Si vous sautez sur une 
mine ou si un robot vous tue, tout n’est pas perdu. Vous disposez en effet 
de cinq vies. Si vous désirez changer le nombre de mines, modifiez la valeur 
de la variable NM à la ligne 80. 


10 REM HHH##ERYEE 
20 REM * ROBDTS # 
30 REM #HR#H##N#EE EE 
40 DEFINT A-2 

50 DIN TB(40,25) 
60 NH=5 

70 Ni=5 

80 NM=40 

90 NR=NI 


AMSTRAD JEUX D'ACTION 


100 DIM R(30,1) 
110 GOSUB 1410 

120 GOSUB 1470 

130 GOSUB 890 

140 ON JS GOSUB 690,790 

150 FOR I=1 TO 100 

180 NEXT I 

170 C=TB(HX,HY) 

180 IF C<)H AND C<>0 THEN 490 
190 PEN 1 

200 LOCATE X,Y 

210 PRINT N#;:TB(X,Y)=0 

220 LOCATE HX,HY 

230 PRINT H$;:TB(HYX,HY)=H 
240 X=HX 

250 Y=HY 

260 T=0 

270 FOR I=1 TO NR 

280 IF R(1,0)=0 THEN 420 
290 Ts 

300 RA=R(I,0)+56N(HX-RI1,0)) 
310 RYER(I,1)+SGN(HY-R(I,1)) 
320 C=TB(RY,RY) 

330 IF CeN OR CeR THEN S=5+{:LOCATE R(1,0) RIT, 1): PRINT Né: 
TBIR(1,0) ,R(1,1))=0:R(I,0)=0:G0T0 420 
340 IF C=H THEN 490 

350 PEN 3 

360 LOCATE R(I,0),R(1,1) 

370 PRINT N$;:TBIR(I,0),R(I,1))=0 
380 LOCATE RX,RY 

390 PRINT R$3:TB(RX,RY)ER 
400 R(I,0)=RX 

410 R(I,1)=RY 

420 NEXT ! 

430 IF T=0 THEN 450 

440 GOTO 140 

450 6=65+10 

460 IF INKEY$()"" THEN 460 
470 IF NR<3O THEN NR=NR+1 
480 G60TQ 130 

490 NH=NH-1 

500 PEN 2 


ROBOTS 


510 LOCATE X,Y 

320 PRINT N$;:TB(X,Y)=0 

530 LOCATE HX,HY 

340 PRINT H$;:TB(HX,HY)=H 

590 IF INKEY$}"" THEN 550 

360 IF NH>0 THEN NR=N1:G0T0 130 
570 CLS 

580 LOCATE 10,11 

390 PRINT "SCORE :°363 

600 LOCATE 10,21 

610 PRINT "UNE AUTRE 7": 

820 PEN 1 

630 IF INKEV#(>"" THEN 630 

640 D$=INKEYS$ 

630 IF D$="" THEN 640 

660 IF D$C)"N" AND D#<)"n" THEN RUN 
670 CLS 

660 END 

690 D$eINKEYS 

100 IF D$="Q" THEN HA=HX-1:HY=HY-1 
710 IF D$="W" THEN HY=HY-1 

7120 IF D$u"E" THEN HY=HY-1:HXeHY#1 
730 IF D$="A" THEN HX=HX-1 

140 IF Df="D" THEN HX=HX+! 

790 IF D$="7" THEN HX=HX-13:HY=HY+#1 
160 IF D$="X" THEN HY=HY+1 

170 IF D$="C" THEN HY=HY+1:HX2HÂ +1 
780 RETURN 

7190 J=J0Y(0) 

800 IF J=3 THEN HX=HX-1:HY=HY-1 
810 IF J=1 THEN HY=HYy-1 

820 IF J=9 THEN HY=HY-1:HX=HX+1 
830 IF J=4 THEN HX=HX-1 

840 IF J=B THEN HX=HX+1 

8950 IF J=6 THEN HÂ=HX-1:HY=HY+1 
B60 IF J=2 THEN HY=HY+{ 

870 IF J=10 THEN HYeHY+1:HXs=HX+1 
880 RETURN 

890 CLS 

900 PEN 1 

910 LOCATE 1,25 

920 PRINT "SCORE :":54 


AMSTRAD JEUX D'ACTION 


930 IF NH=1 THEN 980 
940 FOR HX=1 TO NH-1 

950 LOCATE 20+HX,25 

980 PRINT H$; 

970 NEXT HX 

980 PEN 2 

990 ERASE TB 

1000 DIM TB(40,25) 

1010 FOR HX=1 TO 40 

1020 LOCATE HX,1 

1030 PRINT M#3:TB(HX, 1)=h 

1040 LOCATE HX,24 

1050 PRINT M$3: TBUHX, 24) ah 
1080 NEXT HX 

1070 FOR HY=2 TO 23 

1080 LOCATE 1,HY 

1090 PRINT M$: TB(1,HY)=h 

1100 LOCATE 40,HY 

1110 PRINT M$: TB(40,HY)=h 
1120 NEXT HY 

1130 FOR Ii TO NN 

1140 H= INT (RND(1) #38) +2 

1150 HY= INT (RND (1 ) #22) #2 

1180 IF TB(HK,HY)C)0 THEN 1140 
1170 LOCATE HX,HY 

1180 PRINT M#::TB(HX,HY) = 
1190 NEXT I 

1200 PEN 2 

1210 FOR I=1 TO NR 

1220 RII,0)=INT (RND (1) #38) +2 
1230 RL, L)=INT (RND(1) #22) #2 
1240 IF TB(R(I,0),R(I,1))€30 THEN 1220 
1250 LOCATE R(1,0),R(I,1) 

1260 PRINT R$32TBUR(I,0),RÛI,1))=hR 
1270 NEXT I 

1280 H=INT (RND (1) #38) +2 

1290 HY=INT (RND{1) #22) #2 

1300 IF TB(HX,HY)C)0 THEN 1280 
1310 X=HX 

1320 Y=Hy 

1330 FOR Ii T0 5 

1340 LOCATE HX,HY 


(0 


ROBOTS 


1350 PEN 3 

1360 PRINT CHRS(143); 

1370 PRINT CHR$(7)3 

1380 FOR J=1 T0 50 

1390 NEXT 1 

1400 LOCATE HX,HY 

1410 PEN ! 

1420 PRINT H$3:TBCHX,HY)=H 

1430 FOR Jet TO 50 

1440 NEXT 

1450 NEXT ! 

1480 RETURN 

1470 CLS 

1480 MODE ! 

1490 INK 0,1 

1500 INK 1,25 

1510 INK 2,23 

1520 INK 3,18 

1530 BORDER 22 

1540 LOCATE 11,11 

1550 PRINT "JOVSTICK 2"; 

1560 D$=INKEYS 

1570 C=RND(1) 

1580 1F Dé="" THEN 1560 

1590 IF Dé="0" OR Dé="o" THEN JS=2 ELSE JS=1 
1600 RETURN 

1610 SYNBOL 240,28,28,73,62,B,28,20,20 
1820 SYMBOL 241,80,126,219,255,255,126,36, 80 
1630 SYMBOL 242,0,0,24,60,126,126,60,24 
1640 H$=CHRS (240) 

1650 H=240 

1860 R$=CHR$ (241) 

1670 R=241 

1680 Mé=CHRS (242) 

1690 M=242 

1700 N#=CHRS 132) 

1710 RETURN 


= D 





PARACHUTE 


Essayez, en sautant d'un hélicoptère en vol, d'atteindre la cible qui se 
trouve au sol. Une première pression sur une touche vous permet de des- 
cendre verticalement en chute libre. Une deuxième pression entraîne l'ouver- 
ture du parachute. La descente continue alors plus lentement et avec un angle 
de 45 degrés car le vent vous pousse. Plus vous attendrez pour ouvrir votre 
parachute et moins vous serez déporté. Mais n'attendez pas trop longtemps 
car, au-dessous de cent mètres, le parachute ne s'ouvre plus. 


10 REM #HRHEHHHHERENE 

20 REM # PARACHUTE # 

30 REM #HHKHENHRENEEX 

40 S=0 

50 GOSUB 810 

80 H=H-1 

70 IF H=0 THEN LOCATE 1,1:PRINT M$s:HH=37:H237 
80 PEN ! 

90 LOCATE H,{ 

100 PRINT Hé; 

110 D$=INKEVS 

120 IF D$="" THEN 170 

130 1F PV>18 THEN 170 

140 IF SPai THEN OP=1:60T0 140 
150 SP=1 

160 1F OP=0 THEN PV=i:PH=H+t,5 
170 1F SP=0 THEN 420 


AMSTRAD JEUX D'ACTION 


180 1F OP=0 THEN PY=PU#1 
190 IF OP21 THEN PV=PV+0,5:PH=PH-0,5 
200 1F PV)24 DR PHC1 THEN 440 
210 IF OP=1 THEN 310 

220 LOCATE HO,V 

230 PRINT N$; 

240 VePV 

250 HO=PH 

240 PEN 2 

270 LOCATE HO, 

280 PRINT Cf: 

290 FOR 1=1 T0 120:NEXT I 
300 GOTO 40 

310 PEN 2 

320 LOCATE HO,V 

330 PRINT Nf; 

440 LOCATE HO, V+{ 

350 PRINT N$; 

340 V=PV 

370 HO=PH 

380 LOCATE HO, V 

390 PRINT P#; 

400 LOCATE HO,V+{ 

410 PRINT Of; 

420 FOR 1=1 T0 120:NEXT I 
430 GOTO 60 

440 IF INT (HO+0.5)C3PA THEN 500 
450 FOR 1=1 TO 500 

480 NEXT I 

470 S=5+1 

480 GOSUB 610 

490 GOTO 40 

500 CLS 

510 PEN 3 

520 LOCATE 15,10 

530 PRINT "SCORE :"38; 
540 LOCATE 15,14 

550 PRINT UNE AUTRE 7"; 
580 D$=INKEY$ 

570 1F D$="" THEN 560 
580 IF D$C)'N" AND D$C)"n" THEN RUN 
590 CLS 


ss ON = 


——— PARACHUTE 


600 END 

b10 INK 0,20 

820 INK 1,2 

830 INK 2,18 

640 INK 3,0 

&50 BORDER 22 

680 MODE 1 

b70 CLS 

580 SYMBOL 240,20,20,28,28,82,73,93,93 
890 SYMBOL 241,0,0,0,28,62,127,127,65 
700 SYMBOL 242,93,93,73,62,28, 2820120 
710 SYNBOL 243,83,1,15,31,31,83,63,31 
720 SYMBOL 244,248,0,128,224,255,255,240,192 
730 SYMBOL 245,0,0,12,12,252,248,0,0 
740 N$=CHR$ (32) 

750 MS=N$4NS4NS 

160 H#=CHRS (243) 4CHRS (244) +CHR$ (245) +N$ 
770 1=0 

780 C#=CHR$ (240) 

190 PS=CHR#(241) 

800 Q$=CHR$ (242) 

810 A$=CHR$(143) 

820 H=37 

830 PA=INT (RND(1)431)+#1 

840 LOCATE PA,25 

850 PEN 3 

869 PRINT A$: 

870 SP=0 

880 OP=0 

890 PH=0 

900 PV=0 

910 CC=? 

920 Vsi 

930 HO=t 

940 RETURN 


si = 
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